home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / egavga.swg / 0074_Wait for RETRACE.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-26  |  319 b   |  14 lines
  1.   {
  2.   *  PROCEDURE WaitRetrace
  3.   *
  4.   *  Waits for a verticle retrace to complete before exiting.  Useful
  5.   *  for reducing flicker in video intensive operations, like color
  6.   *  cycling.
  7.   }
  8.  
  9. PROCEDURE WaitRetrace;
  10.  begin
  11.    while ((Port[$3DA] AND 8) > 0) do;
  12.    while ((Port[$3DA] AND 8) = 0) do;
  13.  end;
  14.